Desktop Icons 2000/Icons2000.iso/archive/Extractors/Icon Digger.exe/Icon Digger 2000.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1999-07-20 | 14KB | 471 lines

object frmMain: TfrmMain
  Left = 374
  Top = 163
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Icon Digger 2000'
  ClientHeight = 493
  ClientWidth = 377
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object cmdExit: TSpeedButton
    Left = 312
    Top = 460
    Width = 57
    Height = 25
    Caption = 'E&xit'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
    OnClick = cmdExitClick
  end
  object cmdCopy: TSpeedButton
    Left = 76
    Top = 460
    Width = 57
    Height = 25
    Caption = '&Copy'
    Enabled = False
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
      007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
      7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
      99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
    OnClick = cmdCopyClick
  end
  object cmdSave: TSpeedButton
    Left = 8
    Top = 460
    Width = 57
    Height = 25
    Caption = '&Save'
    Enabled = False
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
    OnClick = cmdSaveClick
  end
  object cmdAbout: TSpeedButton
    Left = 244
    Top = 460
    Width = 57
    Height = 25
    Caption = '&About'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
      33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
      FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
      FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
      FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
      FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
      FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
      3333333773FFFF77333333333FBFBF3333333333377777333333}
    NumGlyphs = 2
    OnClick = cmdAboutClick
  end
  object pnlMain: TPanel
    Left = 8
    Top = 8
    Width = 361
    Height = 441
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 30
      Height = 13
      Caption = '&Drives'
      FocusControl = DriveComboBox
    end
    object Label3: TLabel
      Left = 180
      Top = 8
      Width = 21
      Height = 13
      Caption = '&Files'
      FocusControl = FileListBox
    end
    object Label2: TLabel
      Left = 8
      Top = 46
      Width = 50
      Height = 13
      Caption = 'Di&rectories'
      FocusControl = DirectoryListBox
    end
    object Label4: TLabel
      Left = 180
      Top = 148
      Width = 48
      Height = 13
      Caption = 'File &Types'
      FocusControl = FilterComboBox
    end
    object Label5: TLabel
      Left = 8
      Top = 188
      Width = 26
      Height = 13
      Caption = '&Icons'
      FocusControl = ScrollBox
    end
    object lblNoIcons: TLabel
      Left = 306
      Top = 188
      Width = 6
      Height = 13
      Alignment = taRightJustify
      Caption = '0'
    end
    object Label6: TLabel
      Left = 316
      Top = 188
      Width = 32
      Height = 13
      Caption = 'Icon(s)'
    end
    object ScrollBox: TScrollBox
      Left = 8
      Top = 204
      Width = 341
      Height = 225
      HorzScrollBar.Tracking = True
      Color = clWindow
      ParentColor = False
      TabOrder = 4
      TabStop = True
      OnEnter = ScrollBoxEnter
      OnExit = ScrollBoxExit
      OnMouseDown = ScrollBoxMouseDown
      object Label7: TLabel
        Left = 11
        Top = 87
        Width = 315
        Height = 46
        Alignment = taCenter
        Caption = 'Icon Digger 2000'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBtnFace
        Font.Height = -40
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 224
        Top = 132
        Width = 100
        Height = 16
        Caption = 'by Sze Ying Biu'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBtnFace
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object PaintBox: TPaintBox
        Left = 0
        Top = 0
        Width = 40
        Height = 200
        PopupMenu = PopupMenu
        OnDblClick = PaintBoxDblClick
        OnMouseDown = PaintBoxMouseDown
        OnPaint = PaintBoxPaint
      end
    end
    object pnlAbout: TPanel
      Left = 8
      Top = 204
      Width = 341
      Height = 225
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 5
      Visible = False
      object Image1: TImage
        Left = 8
        Top = 8
        Width = 32
        Height = 32
        Picture.Data = {<image000.ico>}
      end
      object Label9: TLabel
        Left = 52
        Top = 8
        Width = 232
        Height = 34
        Caption = 'Icon Digger 2000'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 80
        Top = 60
        Width = 43
        Height = 13
        Caption = 'Version'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 80
        Top = 80
        Width = 29
        Height = 13
        Caption = 'Type'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 80
        Top = 100
        Width = 51
        Height = 13
        Caption = 'Designer'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 80
        Top = 120
        Width = 37
        Height = 13
        Caption = 'WWW'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 80
        Top = 140
        Width = 35
        Height = 13
        Caption = 'E-mail'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 80
        Top = 160
        Width = 22
        Height = 13
        Caption = 'ICQ'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 152
        Top = 60
        Width = 15
        Height = 13
        Caption = '2.2'
      end
      object Label17: TLabel
        Left = 152
        Top = 80
        Width = 44
        Height = 13
        Caption = 'Freeware'
      end
      object Label18: TLabel
        Left = 152
        Top = 100
        Width = 60
        Height = 13
        Caption = 'Sze Ying Biu'
      end
      object Label19: TLabel
        Left = 152
        Top = 120
        Width = 88
        Height = 13
        Caption = 'http://come.to/biu'
      end
      object Label21: TLabel
        Left = 152
        Top = 140
        Width = 86
        Height = 13
        Caption = '[e-mail]'
      end
      object Label22: TLabel
        Left = 152
        Top = 160
        Width = 42
        Height = 13
        Caption = '2143330'
      end
      object cmdBack: TSpeedButton
        Left = 140
        Top = 188
        Width = 57
        Height = 25
        Caption = '&Back'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = cmdBackClick
      end
    end
    object DriveComboBox: TDriveComboBox
      Left = 8
      Top = 24
      Width = 169
      Height = 19
      DirList = DirectoryListBox
      TabOrder = 0
      TextCase = tcUpperCase
    end
    object FileListBox: TFileListBox
      Left = 180
      Top = 24
      Width = 169
      Height = 121
      ItemHeight = 13
      Mask = '*.bmp;*.dll;*.exe;*.ico;*.icl'
      TabOrder = 2
      OnChange = FileListBoxChange
    end
    object DirectoryListBox: TDirectoryListBox
      Left = 8
      Top = 62
      Width = 169
      Height = 123
      FileList = FileListBox
      ItemHeight = 16
      TabOrder = 1
    end
    object FilterComboBox: TFilterComboBox
      Left = 180
      Top = 164
      Width = 169
      Height = 21
      FileList = FileListBox
      Filter =
        'All supported files|*.bmp;*.dll;*.exe;*.ico;*.icl|Bitmap file (*' +
        '.bmp)|*.bmp|Dynamic-link library (*.dll)|*.dll|Executable file (' +
        '*.exe)|*.exe|Icon file (*.ico)|*.ico|Icon library (*.icl)|*.icl|' +
        'All files (*.*)|*.*'
      TabOrder = 3
    end
  end
  object ImageList: TImageList
    Height = 32
    Width = 32
    Left = 292
    Top = 92
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    Left = 314
    Top = 50
    object Save1: TMenuItem
      Caption = '&Save'
      OnClick = Save1Click
    end
    object Copy1: TMenuItem
      Caption = '&Copy'
      OnClick = Copy1Click
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'ico'
    Filter = 'Icon file (*.ico)|*.ico|Bitmap file (*.bmp)|*.bmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
    Title = 'Save Icon As'
    OnTypeChange = SaveDialogTypeChange
    Left = 270
    Top = 50
  end
end